home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / ANTHEM.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  336b  |  16 lines
  1. ' ANTHEM.BAS      
  2. ' This program plays the opening bars of "The Star-Spangled Banner."
  3.  
  4. CLS
  5.  
  6. INPUT "Press Enter to begin...", dummy$
  7.  
  8. FOR i% = 1 TO 12
  9.     READ note%, duration%
  10.     SOUND note%, duration%
  11. NEXT i%
  12.  
  13. DATA 349, 4, 294, 4, 233, 8, 294, 8, 349, 8, 466, 16
  14. DATA 587, 4, 523, 4, 466, 8, 294, 8, 330, 8, 349, 16
  15.  
  16.